perm filename DEMO.LSP[MRS,LSP]1 blob sn#615041 filedate 1981-09-30 generic text, type T, neo UTF8
(defun demo (f)
  (setq f (open f 'in))
  (do s (read f 'end) (read f 'end) (eq 'end s)
      (do c (tyi t) (tyi t) (= 13. c))
      (sprint s t nil)
      (print (eval s)))
  (terpri)
  (close f)
  'done)